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Preface 



This Program Logic Manual is designed to satisfy the docu- 
mentation requirements of support personnel responsible 
for maintenance of these IBM System/3 programs: 

• System Initialization. 

• Program Maintenance. 

• Device Counter Logout. 

Information in this manual includes both general and 
detailed descriptions of each of the thiee programs. 

This publication is intended to be a recall mechanism and 
a debugging tool. In debugging, however, this manual serves 
best as a guide to the functional sequences of instructions 
in the program listing. 



RELATED PUBLICATIONS 

Effective use of this publication requires familiarity with the 
material in the following publications: 

• IBM System/ 3 Card and Disk System: Components 
Reference Manual, GA21-9103. 

• IBM System/ 3 Card System: Operator's Guide, 
GC21-7513. 

• IBM System/3 Card System: Absolute Card Loader and 
Input/Output Control System Logic Manual, SY21 -0521 . 



Third Edition (January 1971) 

This is a major revision of, and obsoletes, SY2 1-05 22-1 and Technical Newsletters SN21-7517 
and SN21-7530. Changes have been made to the System Initialization program and a new 
program, the Device Counter Logout program, has been added. Changes to the text and small 
changes to illustrations are indicated by a vertical line at the left of the change; changed or 
added illustrations are denoted by the symbol • to the left of the caption. 

This edition applies to version 1, modification 4, of Program Product 5701-SC1 and to all 
subsequent versions and modifications unitl otherwise indicated in new editions oi Technical 
Newsletters. Changes are continually made to the specifications herein; before using this 
publication in connection with the operation of IBM Systems, consult the latest IBM System/3 
Newsletter, Oidei Number GN20-2228, fox the editions that are applicable and current. 

Requests for copies of IBM publications should be made to your IBM representative or to the 
IBM branch office serving your locality. 

A form for reader's comments is provided at the back of this publication. If the form has 
been removed, comments may be addressed to IBM Corporation, Programming Publications, 
Department 425 , Rochester, Minnesota 55901. 



© Copyright International Business Machines Corporation 1970, 1971 
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This publication is divided into three parts-one part for each program. The following 
sections are included, as required, in each part depending on the size and complexity of the 
program being described: 

• Introduction contains general information about the functions and characteristics of 
the program. 

• Method of Operation describes the data flow and functional flow of the program in 
general terms. 

• Program Organization describes the organization of each routine using narrative, flow- 
charts, and diagrams. Flowcharts are designed to provide easy reference to the program 
listings. 

• Data Area Formats describes significant data areas used by each program. 

Two appendixes in the back of this publication contain information applicable to all programs: 

• Appendix Aisz directory containing information needed for quick reference to the 
program listings, 

• Appendix B discusses the flowcharting techniques used in this publication. 
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Part I - - System Initialization 



Section 1. Introduction 



Punched Card 



The IBM System/3 System Initialization program initializes 
storage for the system user. The program performs these 
functions: 

• Punches a card containing the date and information 
recorded in the Error Recording area. The program 
inserts this card before the end card of the first module, 

• Initializes the Error Recording area to binary zeros. 

• Initializes the copyright area to blanks. 

• Initializes storage to blanks from the first byte following 
the System Initialization program to the highest storage 
position (according to the system storage size). 

• Reads, identifies, and interprets control cards. 

1 . Builds a chain image in storage using the chain 
image control cards. 

2. Loads the system date specified on the date 
control cards. 

3. Loads the system storage size specified on the 
storage size control card. 

4. Sets external indicators as specified on the external 
indicator control card. 



Control Cards 

The System Initialization program accepts four control 
cards. 

• Chain image control card. 

• Date control card. 

• External indicator control card. 

• Storage size control card. 



A card is punched by the System Initialization program and 
inserted before the end card of the first module. The con- 
tents of this card are: 

Column Contents 

1 W 



2-65 



Q, R, and sense bytes from last eight I/O 
errors (location X'180'-X 4 19F') 



66-77 


Last six hammer echo checks (location 




X'1A0'-X'1A5') 


78-93 


Blanks 


94 


Month 




1-9 - January to September 




= October 




- (minus) = November 




} = December 


95 


Day 




A-I = 01-09 




C-R= 10-19 




8-9 = 20-21 




S-Z= 22-29 




1-2 = 30-31 


96 


Year (last digit of year) 


123-128 


Printed date from System Cornmunicat 



area (rnmddyy) 

Columns 94-96 will be blank if the information in storage 
is not a positive 6-digit number. Column 95 will be blank 
if the day is not 01-31. 

See Section 3, Data Area Formats, for the information in 
the Error Recording area. For these areas, one byte in 
storage requires two columns on the punched card. 



System Requirements 

The System Initialization program will function with any 
configuration of the IBM System/3 Card System. 
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Section 2. Program Organization 



The System Initialization program is made up of two mod- 
ules. The first module initializes the System Communica- 
tion area. If a parity error processor check occurs while the 
first module is running, the user presses the Program Load 
key which loads the header card of the second module. 

The second module consists of a header card and a dummy 
end card. The header card causes a branch back to the first 
module where the Error Recording area is re-initialized but 
not punched. This allows the System Initialization program 
to continue. If no processor check occurs, the second mod- 
ule is fed by the first module. 

The end card is not used by the second module and is 
always fed by the first module. The flowchart for the 
System Initialization program is found on Chart BA (parts 
1,2, and 3). 
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Section 3. Data Area Formats 



The System Initialization program initializes the data areas 
found in the System Communication area. A storage map 
of the System Communication area is found in Figure 1-1 . 



Chain Image Area - - CHAINO 

This is a 120-byte area starting at location X*100' referenced 
by the label CHAINO. Each character (0-9, A-F) punched 
in a chain image control card is represented by four bits 
(the hexadecimal equivalent of the character) in the Chain 
Image area. Thus, two columns on the card are compressed 
into one byte (two hexadecimal digits) in the Chain Image 
area, for example: 



CardCoLl=A 



Card Col. 2 = 3 



Resulting byte = X'A3' 



If the printer chain image is 48 characters, the first 48 
bytes of the data area are used to contain this image, and 
the rest of this area is set to blanks. If the image is 120 
characters in length, the entire area contains the chain 
image. 



Hexadecimal 
Address 



0000 

0100 

0178 
01 7E 
017F 

0180 



01 A A 
01 B2 
0200 

XXXX 



Absolute Card Loader 



Chain Image 



Date 



Storage Size 



External Indicators 



Error Recording Area 
(Eight 4-byte history tables) 



(Ten 1-byte history tables) 



Not Used 



Copyright Area 



Object Program 



System 

Communication 

Area 



• Figure 1-1. Storage Map foi System Initialization Program 



Date Area - - DATEO 

This is a 6-byte area located at location X*178' referenced 
by the label DATEO. This area contains the information 
found on the date control card in the following format: 



| M| M | D | D | Y | Y 
X'178' X'17D J 



Storage Size Area - - SI ZEO 

This is a 1-byte area at location X*17E* referenced by the 
label SIZEO. This area contains the leftmost byte of the 
maximum address of storage. The SIZEO contents for the 
various storage sizes are as follows: 



M = month 



D = day 



Y = year 



rdEntr) 


/ SIZEO Contents 


08 


X*1F 


12 


X'2F 


16 


X'3F 


24 


X*5F 


32 


X^r 7 ' 



1*6 Data Area Formats 



External Indicators - • IN DO 

This is a 1-byte area at location X'17F' referenced by the 
label INDO. This area contains eight 1-bit indicators with 
the following settings: 

• 1 indicates switch is set on. 

• indicates switch is set off. 



Error Recording-ENVIRO 

Tnis is a 42-byte area starting at location X'180' referenced 
by the label ENVIRO. This area is used as a history table of 
I/O device errors. The first 38 bytes of this area are punched 
into a card. This card is then inserted before the end card 
of the first module every time the System Initialization 
program is executed. After the card has been punched, the 
Error Recording area is reinitialized to hexadecimal zeros. 
This 42-byte area is composed of: 



Ten 1-byte areas containing the position of the last ten 
line printer hammer echo checks. Each entry is conver- 
ted from the value recorded by IOCS (the rightmost 
byte of the Line Printer Data Address Register (LPDAR) 
to the true print position. The results of this conversion 
are: 



LPDAR 


Error 


Decimal 


Contents 


Position 


Equivalent 


X*01'-X7B' 


X'FF 




(See Note) 






XW-X'FF* 


x ( or-x'6c 


01-108 


XW-XW 


x'6D , -X74 > 


109-116 


X7C-X7F 


X75'-X78' 


117-120 


X^C'-XW 


X79'-X'80' 


121-128 


X^'-X^B 1 


X'81'-X<84' 


129-132 



Note: An LPDAR value of X'Ol '-X7B' exists only if 
there has been a hardware malfunction and is replaced 
by XTF\ 



Eight 4-byte areas. 

1 . One Q byte from the last SIO before the error was 
detected. 

2. One R byte from the last SIO before the error was 
detected, 

3. Two sense bytes from the status sense instruction 
for the device in error. 



Copyright Area 

This 46-byte area starts at location X*1B2' and is initialized 
to blanks. The program being run fills this area with the 
program number and copyright information about that 
program. 
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Part II - - Program Maintenance 



Section 1. Introduction 



CARD FORMATS 



The IBM System/3 Program Maintenance program is used to 
update decks for IBM System/3 programs when necessary. 
A program deck consists of all the cards which comprise an 
IBM System/ 3 program. Program decks may be comprised 
of smaller units known as component decks, which are 
separately orderable items. Component decks, in turn, may 
be comprised of even smaller units known as module decks. 
It should be noted that a single module deck may comprise 
a complete program deck. For example, the IBM System/3 
Data Recording Program consists of one module. 

The Program Maintenance program performs the following 
functions: 

1 . Replacement of component and module header cards. 

2. Retention, addition, or replacement of Program 
Temporary Fixes (PTFs). 

3. Addition or replacement of program cards in a 
module. A complete module may be inserted or 
replaced 

4. Checking of sequence, card counts, and self check 
information. The sequence check ensures the proper 
physical sequence of IBM System/3 programs. The 
card count ensures that the number of cards in the 
deck equals the number on the header card 
(component header card or module header card). 
Each card of the program deck is self checked to 
ensure that the card read is correctly punched. 

5 . Deletion of any cards which cannot be identified . 

6. Printing of audit trail. 



The cards recognized by this program are the header card, 
PTF card, program card, and end card. (See Figure 2-1 for 
their format.) 

There are two other cards of special interest to this 
program. They are the PTF header card and the End of 
File (/*) card When a PTF header card is located in the 
Update File, the PTF Insert routine is performed, The 
format of this card is as follows: 



P (identifies a PTF header) 


cc 1 


Program Number 


cc2-12 


Version/Modification Level 




of the Component 


cc 13-16 


Component ID 


ccl7 


Unreferenced 


cc 18-85 


Self Check Number 


cc 86-88 


Unreferenced 


cc 89-96 



If an end-of-file (/*) card is the only card in the Update 
File, the Sequence Check routine is performed The end-of- 
file card terminates a file. Termination of both files causes 
end of job. The format of this card is a /* in columns 1 and 
2. 
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A. Header Card 


B. PTF Card 




Program Number cc 20-30 
Modification Level of 

Component cc 31-32 
Component Card Count cc 55-58 
Version of Component cc 59-60 
Module Card Count cc 61-63 
Header ID (C-Component 

or M-Module} cc 64 


Unreferenced 
Self Check Number 
PTF ID (P) 
PTF Number 
Component 1 D 
Module ID 
Sequence Number 


cct-85 
cc 86-88 
cc89 
cc90 
cc91 
cc 92-93 
cc 94-96 


•Update Type cc 85 






Self Check Number cc 86-88 






Module Modification Level cc 89-90 






Component ID cc91 






Module ID cc 92-93 






Sequence Number (000) cc 94-96 






C. Program 


D. End Card 




Unreferenced cc 1-85 


Unreferenced 


cc 1-85 


Self Check Number cc 86-88 


Self Check Number 


cc 86^88 


Module Modification Level cc 89-90 


Module Modification Level 


cc 89-90 


Component ID cc91 


Component ID 


cc91 


Module ID cc 92-93 


Module ID 


cc 92-93 


Sequence Number (001-998) cc 94-96 


Sequence Number (999) 


cc 94-96 


A. The header card is the first card of every modul 


e or component. 




*The component header specifies any one of th 


e four update types and determines: 




• The update type of the first module. 






• The status of all module modification levels 


in this component 




Subsequent module headers specify either update type or update type 1, and do not determine 


whether or not modification levels will change. 






Update types: 






exchanges to a module J 


New modification level required 




1=complete replacement of a module, or > 


for a module changed 




addition of a new module J 


or replaced. 




2=changes to e module j 


Module modification 




3=complete replacement of a module, or > 


levels must 




addition of a new module 1 


remain the same. 




B. PTF cards are corrections to IBM System/3 pro 


gram. 




C. A program card is any card that is not a PTF an 


d has a sequence number between 001 and 998. 


D. The end card is the last card of a module or cor 


nponent. It must have the sequence 


number 999. 



Figure 2-1. Formats of Header, PTF, Program, and End Cards 



SYSTEM REQUIREMENTS 

The IBM System/3 Program Maintenance program operates 
using the following minirnum system configuration: 

• The IBM 54 1 Processing Unit. 

• The IBM 5424 Multi-Function Card Unit (MFCU). 

• The IBM 5203 Printer, 
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Section 2. Method of Operation 



This section describes the functional flow of logic and data 
for the IBM System/3 Program Maintenance program (see 
Figures 2-2 and 2-3). The Program Organization section 
will describe each routine in detail. 

The Program Maintenance program processes two input 
files, the Program File and the Update File. The Mainline 
routine reads the first card in each file and passes control 
to the Component Table Look-Up routine which builds the 
Component Header Table (COMPTB). When control is 
regained, the Header section determines the flow of logic. 
If the header card in the Update File was a PTF header, 
component header, or an end-of-file (/*) card, control is 
given to the PTF Insert section, Update section, or Sequence 
Check routine, respectively. The PTF Insert section passes 
control to the PTF Look-Up routine which builds a table. 
During execution of the Update section or the PTF Insert 
section, control is passed to the Sequence Check routine 
where the cards are sequence checked until an addition, 
replacement, or deletion is found. The Update section or 



PTF Insert section then regains control and processes the 
changes. When an end card is read, the Sequence Check 
routine reads one more card (a header card) and returns to 
the Mainline routine. The cards from both input files are 
self-checked by the Self-Check routine. 

The Update File and Program File are read into two 
separate input buffers (UPDATE and PRGRD). After the 
header cards are read by the Mainline routine, the Compo- 
nent Header Table (COMPTB) is built from the header card 
in the Program File. The Update File deck is then read by 
the Sequence Check routine until the first sequence break 
or PTF is reached. The Program File deck is then deleted 
up to this point by the Update section (on an Update run). 
The sequence break is filled in by the Sequence Check 
routine reading from the Program File until a card is found 
with a sequence number equal to or greater than the se- 
quence number on the card in the Update File. The Update 
section or the PTF Insert section then handles the card in 
the Update File or in the Program File as appropriate. The 
cycle is repeated until the end of the module is reached 
on both the Program File and the Update File. 

If a complete module replacement is to be processed, the 
preceding procedure is bypassed and the Sequence Check 



Input 



Service Routines 



Output 



Program File 



Mainline Routine 

r, — 



Header 
Card 



Update File 



Header 
Card 




Initial- 
ization 
section 



Header 
section 



H 



Update 
section 



section 




r 



M-JL-J 



Component 
Table 
Look-Up 
Routine 



Q 



PTF Table 
Look-Up 
Routine 



Sequence 

Check 

Routine 



Cards 




NOTE : All Program Maintenance routines 
call the Self-Check routine. 

Figure 2-2. Control Flow of Program Maintenance Program 
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routine reads and checks the cards. For a PTF Insert run, 
PTF header information is stored in a PTF Table 
(PTFTAB). PTFHD is the hold area for this data. 

For each type of run an audit trail is printed (PRTBUF 
is the print buffer), and the processed cards are routed to 
appropriate stackers as follows: 

• Update run 

Stacker 1 -Program Maintenance program object deck. 
Stacker 2-PTFs not applied. 
Stacker 3— Cards replaced by Update. 
Stacker 4— Altered program deck. 

• PTF Insert run 

Stacker 1— Program Maintenance program object deck. 

Stacker 2-PTF headers. 

Stacker 3-Cards replaced by PTFs. 

Stacker 4-Altered program deck. 

• Sequence Check run 

Stacker 1— Program Maintenance program object deck. 

Stacker 2-Not used. 

Stacker 3 -Not used. 

Stacker 4— Sequence-checked deck. 

• EB Insert run 

Stacker 1 —Program Maintenance program object deck. 
Stacker 2— Not used. 
Stacker 3 -Not used. 

Stacker 4-RPG II Compiler deck containing the EB 
phases. 
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Update File 



Program File 



Deck 



/Header 
Card or /* 



Deck 



Header 
Card 



JTV 



| UPDATE BUFFER \ ///JSS/JS/*/fS/S*JJSJSM \ PRGRD BUFFER ~| 
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L Routine J 
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Zi 
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COMPTB 

(Component 

Table) 




Object 
Deck 



Stacker 




Stacker 2 




Replaced 
Cards 



Stacker 3 



nit 



A PTF header or com- 
ponent header from 
update file will go to 
PTF insert or Update run, 
respectively. 

Indicates buffer or data 
area. 



i Routine in functional 

— « flow of logic and data 

flow for program file 
component headers only. 



TWSSJtp °ata flow of header 
cards or end of file 
(/*) cards. 



> 



Data flow of all cards 
except header or end of 
file (/*) cards. 

Indicates printed 
output. 



Sequence 

Check 

Routine 
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Trai 



Itered 
and/or 
Sequence; 
Checked 
Proyam 
JQfiCfe — , 



Stacker 4 



Figure 2-3. Functional Flow of Data for Program Maintenance Program 
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Section 3. Program Organization 



General Overview of the Program Maintenance Program 



This section shows how the routines that comprise the 
Program Maintenance program are interconnected and the 
function of each routine. Figure 2-4 is a storage map for 
the program. 



Hex 
Address 



0000 



007C 



0100 



01 B2 



0280 



02E0 



0598 



17FC 



XXXX 



Update File Read Buffer 



Print Buffer 



System Communication Ansa 



Constants and Data Areas 



Program File Read Buffer 



Component Header Table 
RTF Header Table 
PTF Identification Tabla 
Printer Messages 
IOCS Constants 



Mainline Routine 

Initialization section 

Header section 

Update section 

PTF Insert section 
Self-Check Routine 
Sequence Check Routine 
Component Table Look-Up Routine 
PTF Table Look-Up Routine 
Single Carriage Line Printer IOCS 
Read Both Hoppers MFCU IOCS 



Unused 



Figure 2-4. Storage Map for Program Maintenance Program 



The functions of this program are to sequence check, insert 
PTF's or insert Updates. The first card in the Update File 
determines which routine will be run. 

1. An end-of-file (/*) card indicates that the Sequence 
Check routine is to be run. 

2. A P in column 1 identifies a PTF header card which 
indicates the PTF Insert section is to be run. Every 
component to be updated by a PTF has a PTF header 
card. 

3 . If there is a C in column 64 and 000 in columns 
94-96 (Sequence Number) of the first card in the 
Update File, the Update section is run. 

4. If there is an M in column 64 and GEB000 in columns 
91-96 of the first card in the Update File, the EB 
Insert run is processed. 

For information on the IOCS routines used, refer to the 
IBM System/ 3 Card System Absolute Card Loader and 
Input/Output Control System logic Manual, SY21-0521. 



Mainline Routine 

initialization section (APMAA 7) 
Chart: EA(part 1 and 2) 
Functions: 

• initializes registers, 

• Initializes data area information and switches. 

• Reads the first card from the Program File and the 
Update File. 

• Prints component deck total information at the end of 
each program deck. 

Subroutines Used." 

• Self-Check Routine 

• Read Only -Both Hoppers (Object) MFCU IOCS 

• Line Printer - Single Feed Carriage (Object) Printer IOCS 
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Header section (AAB010) 

Chart: EA(part3) 

Functions: 

• Checks component header information for validity. 

1 . Check to determine if the module is in the current 
program. If it is not: 

a. If the header is a component header, a new 
program deck is being updated and the 
functional flow of the program returns to the 
Mainline routine. 

b. If the header is not a component header, a 
halt occurs. 

2. Checks the module ID for proper sequence. Each 
module ID must be greater than the previous module 
ID, except in the RPG Compiler where several EB 
phases (same module ID) are allowed. If a module 

is out of sequence, a halt occurs and control returns 
to the Mainline routine. 

3. Checks the header card sequence number against 
000. If they do not agree, a halt occurs. 



• Places component header information into the Com- 
ponent Header Table and into the Component Table 
Hold Area (COMPHD) via the Component Table 
Look-Up routine. 

• Saves data from the header card for the Sequence Check 
routine. 



Subroutines Used: 

• Component Table Look-Up Routine 

• Sequence Check Routine 

• Self-Check Routine 



Update section (AACOW) 

Chart: EA (parts 4, 5, 6, 7, 8, 9, 10, 11, 12, and 13) 

Functions: 

• Checks the validity of the header card. 

1 . Checks the sequence number against 000. If they 
do not agree, control is given to the PTF Insert 
routine. 

2. Checks for an M or C in column 64. If there is 
none, control is given to the YTF Insert section. 

3. Checks to determine whether this header card is 
for the current program. If not, a halt occurs. 

4. Checks the module ID for proper sequence. Each 
module ID must be greater than the previous module 
ID, except in the RPG Compiler where several EB 
phases (same module ID) are allowed. If a module 

is out of sequence, a halt occurs and control returns 
to the Mainline routine. 

5. Checks first header card for EB module header. 
If it is, a switch is set for EB Insert run. 

• Replaces old header cards with new header cards. 

• Inserts Updates: 

1 . Within the body of a module, replacing existing 
cards. 

2. Complete module insertion. 

3. Complete module replacement. 

4. As replacement for PTFs outside the body of a 
module. 

5. As addition to the body of a module. 

• Updates IOB to allow Sequence Check routine to read 
from the Update File for a complete module replacement. 

• Prints all PTFs in the module. 

• Prints deleted PTFs. 



Subroutines Used: 

• Read Only - Both Hoppers (Object) MFCU IOCS 

• Line Printer ■ Single Feed Carriage j[Object) Printer IOCS 

• Sequence Check Routine 
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Program Temporary Fix (PTF) Insert section (AAE010) 

Chart: EA (parts 14, 15, and 16) 

Functions: 

• Checks the PTF Header card for a P in column 1 . If 
there is none, a halt occurs. 

• Places PTF header information in the PTF Header Table 
via the PTF Table Look-Up routine. 

• Inserts PTFs. 

1 . Inside the body of a program deck on a one for 
one replacement basis. 

2. Outside the body of a program deck. This may 
be a one for one replacement or it may be a 
complete insertion with nothing deleted. 



Prints PTF IDs and sequence IDs of all PTFs in the 
module, including the inserted PTFs. 

Prints deleted PTFs. 



Subroutines Used: 

• Read Only -Both Hoppers (Object) MFCU IOCS 

• Line Printer - Single Feed Carriage (Object) Printer IOCS 

• PTF Look-Up Routine 

• Sequence Check Routine 

• Self-Check Routine 
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Initialization Section 



IPXAA1 

•***H1********* 

* * 

* E§T*Y 



*****q1********« 



LOIB PTtTST 
REGISTER 



***• 
•002* 
• *3 •-> 



•INITIALIZE *EAD* 
* SWITCHES •■ 



****C2 »**»**••* 
'HALT: SST DAT* * 



DISPLAY: Ci 



• **• 

• 002* 

• R2 * — ■ 



r 



•••• 

AAA00O 

•****D1******i 

* 

* hutiblize 

* PROG*»S 

* 5»TTCd^5 



■ ***£-)******•** 



CLEAR READER 
TABLES 



A»A001 .*. 




TOCS 


F1 ». 




•**«2*** ********* 


.•BYPASS *. 






.* REiOITG *. 


S3 


* READ FP0«1 * 


*. UPDATE 

*- TUB .• 








• * 


*_ ,* 

oa-j* *. .* 

0B-H5 * TBS 








ir*s 


• ••• I 






•016* | 






• DS *-> 




1 


• •*• T 






AAA005 .*. 




HA020 E.B/01/1M 


Gl *. 




*****U2 ********** 


.* *. 




♦SBlT-SFJEC* * 


. • MO 0? *. 


90 




•. GPOJITE 


•_-__ 


>* 7EWIFT * 


». PILE? . * 




* SELr-THECE * 


*, , • 
*. .* 




* RUBBEP * 



• TBS 



**H1******* 

♦SET 3PT.TCH * 

' TO C*nSE « 

SBQCEKCE 

CHECK t 



0H-B5 



tflU* 

• 02 *-> 



AAA030 



03-1D 
1H-G2 
15-C2 



J1 *. 
.♦RYPASS *. 
' READING 

PROG RAH 
'. PILE? . 



***** 
•003* 
• B1* 



l„ 



HAA0 31 f TOCS 

***J2 *********** 



PR0G1AH PILE 



***************** 



• 016* 

• J3 •-> 



• •*• 
MAA033 

•*K1******* 
•CA0SJ SEAD * 

• to BE * 

• 9TPASSTT) P0» 

* BOTH FILBS * 



•00 2* 
* A1* 

* * 



• Chart EA. Mainline Routine (Fait 1 of 16) 
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Initialization Section 



W 



► i 
EHD OP 

pr ex; Bin 

PILE? 



bo 



• ••*• 
•003* 

* 11* 



TES 



• SET EHD OP 
■>* FBOGBAB FILE 

* SHITCB 0* 

* 1 

*********** 



11A035 .«. 

B2 «. 
-• IS •. 

TBS -• PBIHT < 
r™ *. SOPPHISSIQH 
*. SHITCB ,* 
*. OH? .* 



DO 



IOCS 

***C2***+******** 

' SPACE LISTIHG * 
AHD PRIST 
HEADIBG • 



111040 

+*+D2 ****** ****** 

* BUT FOB + 
PRIHT BUFFHH 
♦ TOT BUST • 

***************** 



**** 

■ * 

■ D3 « 

i < 

**♦* 



111055 * 

*****D3 ********** 



POIHT TO HE XT * 

COHPOHBHT •<- 
HE10BB 2STBY * 



B2 *. 
.* 1HT *. 
'EBTHIES IH *. TES 

C08POHEHT -• 

'. BE1DEB .* 

*.tbl? .* 

♦ HO 



111060 



TES 



P2 *. 
.* *« 

PBIHT *. 
SUPPF.ESSIOH .* 
OH? -• 



HO 



* IOCS 
***G2************ 



* SKIP TO LIHE 
6 



E3 *. 
. * *• 

.• COHPOKEHT 

->*. C1KD COUHT 

*.CORBECT? . 



99 m99f2* ******** 

• HOVE EBROB 

• INDIC1T0B 



141050 



.* PRIHT * 

>*. SOPPfiSSSIOH 

*. OH? .* 



IOCS 
»E5***********N 



PBIHT HE1DBB 
TOTll LIHE 



***G3* 



* IOCS • 



• PBIHT HElDEfl 
T0T1L LIHE 



■*> 



11A070 
HO .♦' 



***** 
■00 1« 
* D1* 



H2 *. 

* 
EHD OP *. 

PBOGBAB 
FILE? . * 



•***K3***«««**+ • *•* 

•HILT: COHPOHEHT* + * 

• C1BD COIIST *-— >* D3 * 

* EBHOH * * • 



DISPL1Y: 03 



111080 



J2 ♦. 

EHD OP 

OPDATE 

PILE? 



1A109O I IOCS 

•**j3*1********4 



PEED OOT 
OPDATE FILE 



* ns 



****K2**+****** 
• * 

*EHD OF JOB HALT*- 



• HOT 3DBJECT TO PHIBT SUPPSESSIOH. 



•**** K 3 •••••***• 



* INITIALIZE 
■>+ STICKERS 



OISPLAT: EJ 



***** 
*001* 
• el* 
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Header Section 



*.**• 



UB010 

*****11**** 

•SBLP-CHECK 



iiaur 



VBRIPY 

5ELP-CHECK 

SORBER 



11B012 



B1 



SB] 

CH 

SBB( 


LP •- IBS 




)RT .* 

.* 


***** ***• 


*. .* 


•001* • * 


* ItO 


* J2* * C2 * 

* * * * 






* *♦** 

1 




i 




, 1 
CI 

1 

PI1 

C1R 
BED 


*. 
*. 
1ST *. NO 

) 1 .• 

)ER? .* 


118015 1 

«***C2********* 
* HILT: HE1DBR 
>* CABD hissihg 



TZS 



****•****•*•*** 

DISPLAY; 



D1 *. 

COflPOHBHT' 
H EIDER 
CURD? . 



BODOLZ 
HEADER 
CARD? 



JTES 





D3 *. 










.•ftODOLE * 






**** 




.•READER rOB 


*. 


HO 


* * 


>• 


CflRFEHT 




• --- 


->• C2 • 




♦.PBO0R1H? 


* 




• • 




*. .* 






**♦* 



11B020 







**•* 

* 


.4. 

81 *. 

• • * 

COBPOSEHT ♦ . KO 
BE1DBR POB .*— 
. COBBM* .• 

*.PGB? .■ 


**■» 
* * 
->* 64 * 

■ ♦ 
**** 


* CZ 

* 
• •** 



*****£3*** 
•COilPOHBNT 



' ED/0 1/11 

***•••*** 



• SEARCH * 

• CORPOIEHT • 

• HEADER TABLE * 
***************** 



P3 



31TB PROGRAM 

RAISE ADD LIS; 

nODQLB ID 



-•" HEADER *. HO * * 

'. IB TABLE? . * >• C2 * 



* IBS 
**•* 

* G3 *-> 

* * 1 

**•• 7 



•*** 

• « 

• * 
**♦* 



11B030 



S3 



AAB035 



BID 07 

UPDATE 
PILE? 



NO 



YES 



HI 



■III, 

:ird? 



RBlDBR 

cir — 
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IK 
*.SEQOBRCE?.» 



•* **Gii •*•♦*•*• * 
• HALT: MODULES * 
'+BOT IB SEOUEKCE* 



DISPLAY: 12 



* HO 



J1 *. 

,*OPDATE *- 
TES .* ID LESS ' 

r-*.TfU* PROGRAH 
*. ID? .' 



11B0V0 

*****t)3**** ****** 
•SITE BODOLE ID,* 
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•LEVEL. 1MD CUD* 
COCKT PBOfl 



* 


ABIDES 




* 


***************** 


•**• 








• 014* 








• S3 


*-> 






* < 








**** 


V 






BO 43 


J3 *. 






.* 


• 






.* S 


EOOBBCE 
CHECK 


* 


TES 


*. 




* 


*. 


OWL?? 


.* 





EC/01/A1 

*****J[)*******4«* 

♦SEQOEIIce * 

* — _ * 

>*SEQOEHCE CBECK * — 
* PROGRAM TILE • 



HO 



11B027 7 ED/01/11 

*****K 1 *********.* 
•COBPOHEFT • 

• ADD COBPOHEKT * . 

♦HEADER TO TABLE* | 



***** 
•001* 
• K1« 



***** 

• 004* 

• 11* 



• G3 * 

* * 
**** 



ART: 00177.3 
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Update Section 



* AH 



AAC01C 



hi 



♦003* 
* ,T3* 

***** 



.♦UPDATE * 
* CUSD 1 

COHOH2DT 
*.READE? ? 



**P1 ******* 
i i 

SET SWITCH 

FOR PPDATE 
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*********** 



* C1 *•, 

» UPDATE *. BO 

TTPB 2 OR 3 .*--- 

? .* 
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A2 *- 

.•UPDATE + - 
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* SO **** 
I **** * * 
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L->* n * * * 
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****a2********* 
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* COHPOHEHT +. 
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DISPLAY: 05 
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* LOW 
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*****C3********** 
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***************** 



D3 
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,* HODOLFS 


*.^TN SEQUENCE 


*, . • 
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-H3 • YBS 


*•** 
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• K3 *-> 




• * 




• *** 
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-•. COHPOHETJT 


*,HEADE* 7 


***** 
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*. . * 


* A1* 
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***• 
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.• UPDATE •. YES 
•. RDH TTPE ? .* 
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**************** 
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*****y^ ********** 
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* H*ADB* TABLE * 
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***4*EU ********** 
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********••**•*•* 



UPDATE 

COHPOHEHT 

READS* EFTRY 

*************** 



***** 
•005* 
* Al* 



HO 



* HPPATF < 
•COHPOHEHT EHTRT* 

* AHD HOLD AREA * 



AAC030 

***••(! 1 ********** 



* SAVE OLD * 
•VEPSIOH HUHBER * 



•*••***•*****•••* 



**** 

• * 

• AH * 

• * 
**** 



**H0******* 

*SBT STACXEB* 

•SELBCTIOH TO * 

' BF-TMH HPDATE 

* HODtTLE * 

♦(STACKER at * 

*********** 



V EC/01 /A 1 

*****jn***« ****** 
•SEOOEHCE * 

♦SEODBHCE CHECF * 
* OPDATB BODOLB » 



**• **<;** ******* 
' HALT; HEADEP * 
■ HT5SIHG 0" * 
> BRO*G TYPE * 

*************** 

display: 10 



PC/M/A1 
*****ftS ********** 
♦SVQIJ'.FC* * 

■>*SEPO*.HCE CHECK • 
•PPOGRAH HODOLE * 
* • 

******* ********** 



I***« 
•001' 
->* J1 



AACO^O 



****C q**»****** 

* HALT: 10DULF * 
■>*HOT IS SEODETCP" 
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***** 
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.* SH«E 
■>*. VEFSTOS? 



'OOH* 

' P3*(V>-D3 

***** 

MIC120 



.* CO*PPCT *. SO 
*.H0DI?T.C*TT3B .*- — 
*. LEVpL? .* 



** i> **x2 ********* 



'.P 80 LACIEST? .* 



I **** 

I * * 

i.->* *<; • 

• * 
**** 



an *. 

.*C3p | »t'» , *_ 
,*Vi"»STO^ jlho*. 
■>*. i3n. 

*. LPVPL7 . * 



* TES 
***« 

L->* D1 



.1..' 

* 

* 
**** 



♦ HAT.T; T^DBRPC'* 

>*v*t>srriH *> D ioo * 



HTS^LRt: IS 



TES 



C1 



c? 



.+ CO*PLE*B *. SO 


.•OHE-? 


JP-01E*. ¥PS 


• .■RRPL ACCENT? . * 


— >*. CAPP R p - .* 


*. .* 


*.PTACE«P»r.* 


*. .* 


*. ? . * 


*. . * 


*, . * 


► res 


* HO 


**** 








* * 








* T)1 *-> 








* * 








**** 








memo 


i iocs 






***qi* *********** 




' 


re*d frou 


««**F)2********* 


* PROGPJW * 


* HALT: * 




* R^PLACRHP^' * 


• THD" TK PBPni « 




*************** 








CTSPTUT : i 1 



* EB/01/R1 
*****p-|***4****** 

♦seip-cthpc* * 

*-- , * 

* VET** * 

* SEL'-CHECK • 

* HlTHPEn * 
*4* ******** ****** 



V 

***** 
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* XI* 



P1 *, 

.* *, 

rps .* 

r --*. SELF-CtRCK 
*. EURO*? . 
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*************** 



Enr> 

CA»D? 



***• 

* * 
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* * 
»*** 



7 TOrS 
***r;^** ********** 



RP.A1 PPO^ 
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***************** 
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E*D 0» 

PP0SPA1 

ETLF? 



TO <5TACKE' 

S'T.ECT 
EH^ CUPO 



* FF/01/M 
•****J3***«***«** 

•SELE-C^C* * 

t * 
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* SEX.P-CKEC* * 
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. * *. 

TBS ,* •. *3 
*. SELP-CHECK . *- — 
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* D»* 



T 

***** 
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•****C1 •♦•***♦••♦ 
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• — ----—---• 
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• SELF-CHECK * 
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C2 



->*. SELF-CHECK 
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**$2 ******* 
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LBfEL 
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*. .* 
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* * 
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* BODIFICATIOR 
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* * 



**G3«»***«a 
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******* 



?« 



**••• 
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■>• SEQOEBCX 
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•SEDOEBCE C3KCK 
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• BESET * 
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5EQDEBCE CHECK •— 
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TBS 
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B2 



IPTUTE 
~1LE? 



HO 
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■>♦. OPT OF 

•.SEQDEKCE7. 
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* TBS 



***** 

10-12 *ai3* 
I2-P1 * D«* 



11C240 .*. 

B3 *. 

.*PROGRAH*. 

.* PILE BATE *. 

>*. LOBES 

+.SEQOEKCE?.* 



* IBS 



V 

***** 
*Q08« 
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* * 



***** 
•009* 

* 11* 



***** 



♦010* 
!2* 



AAC22Q 
JtO -•' 



C3 



IS C1HQ 
1 PTP7 



*****D3 ••••*••**• 

• FOIRT XE1 TO • 

* FIRST TABLE * 

• EKTR* IB ID • 

♦ T1BLE * 



E3 •. 
. *I5 THIS*. 

► EKTRT * 
C08PEST PTF 

► . ID? .* 



■>*. 



E« *. 

* < 

IS THIS 
BUD OP 
TABLE-? 



AAC221 

*****X5 



•I******* 



>* IICREHERT XB1 



AAC222 .♦. 

F3 •. 

. * *. 

TBS .+ P8ZMT " 

— *. SOPPRESSIOS 

*. OS? .< 

*. .* 



PRIST DELETED 
PTP CARD 



***************** 
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•***74********* 



PUT PTF ID XV 

TABLE 
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RB1D FHOff 
PROGBAH FILE 
TO STICKER 3 
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STACKER 

SELECT TO U 



SB/01/A1 
*****K3 *♦*♦***••* 
•SELF-CHECK * 



VEBIFT 
5BLF-CHBCK 

JJOHBEB 



.* *. **** 

.* *. MO ♦ * 

->*. SILF-CBJCK .*—-->* B2 * 
*. ERROR .* * • 

*. .* ***• 
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11 •. 

■ « 

IS C1HD 

BITHI1 

BODY? 



11C270 

+♦•••12 
•SBQCTEMCE 



iEC/01/M 
****•*•• 



■y+StQUlMCE CHECK 
* PBOGR1I filb 



•**» 

' B1 



• 10 



*-> 



• **♦ 
1AC255 



+ 81 •., 

IS THIS 

C1RD EID 

C1HD? 



* BO 



11C260 



' XS THIS 
CIBD A PT 



F7 .• 



B2 •. 
-• JS *. 
.•DPD1TE CIBD*. YES 

IV BUD . • 

*. C1BD7 ,* 



MO 



11C257 

****.*C2 ********** 

• SET 0P SBQflBSCB* 
♦BOOTHS TO BB1D* 

• FROH PBOGBAM • 

• FILE • 



1 AC 2 51 IOCS 
■> 



PBOGBAB 
FILE, SELECT 



1 • 10 STICKER 3 * 
••**••••**••••••• 



1" 

*•** 

► 4 

» B3 * 

► 4 

• ••* 



' RESET * 

ST1CKE8 

SELECT TO 

STICKER <t 

> 4 

*********** 



Ck *. 

■ 4 

IS THIS 

BID OF 

FILET 



E8/0 1/1 1 
*mm**c5********** 
•SELF-CHECK • 

>* VBBIFY • 

* SELF-CHECK • 

* I0BBEB • 

***************** 



L 



• TBS 



>• F5 * 

**** 



**-***n^ ********* 

* * 

• POUT XB1 to • 



•SBTBT IB ID1 



• E5 



IBS 



r 



D5 



SELF-CHECK 
► . ZBBOB7 



• BO 



E1 •- 
.•IS TBIS*. 
.* BBTBT •. HO 
*. COBBBBT PTF . • — 
•. ID? -♦ 



>. 



12 *. 

.* * 
• IS TBIS 

EBD OF 
*. T1BLE? 



AAC261 I 



BO 



.• >• IMCBEHEBT IB1 



A1C262 



F1 



YES .* 
5r— •- 30PPB 



rn CSS 101 ! 

[ v oBt .--* 

T *. .* 



*****f2**+* ****** 



• POT PTP ID IB • 
■• T1BLE • 



••a************** 



• •** 
> i 
. B1 ' 
i i 

• ••• 



10 



t IOCS 
***G1 ••*•*•*+•*•• 



* milt DELETED • 
P1F CIBD 



• *•• 

• * 

• HI •-> 



11C265 T IOCS 

i**2\***m**i**i 
BEAD FBOM 



PBOQB1H 



H3 



• BtSW * 

■>• STACREB •■ 

• SELECT TO * • 

• * 

*********** 



.* 13 1 

«. BID 

*. FI1 

*. 
• _ 
i 


W ': 

LIT .♦ 

,* 
.* 
* BO 


YES 

• -, 

i 

• *•• 

• 
• B1 

• 
*•** 


•SELF-CH3 


EB/01/A1 
i ******** 
ICK • 



1 B3 * • 
i ♦ B5 ♦-> 
***** « 
**** 
A1C256 

•***«g5**** ****** 

• SET DP FOB • 

• SEQUENCE • 
•ROSTISE TO READ* 

• FROH DPDATE ♦ 

• FILE • 
***************** 



**** 

* * 

* F5 *-> 



AAC258 T BC/01/11 
»*mm*Y5********** 
*SE0t)EBCB_ __• 

• por'fisal ♦ 

• MODULE PBIHT • 

• * 
***************** 



»*G5****+*» 

.* WRJEF '. 

•BOQTIIE TO READ* 

♦ FBOfi PHOGBAB * 

* riLE • 

*********** 



****H5********< 
CLUB ID TABLE 



*••*• 
•0D1* 
• CI* 

* • 



VERIFY 

SELF-CHECK 

BOBBER 



VO 



r 



K3 



tChbcjc 



BR80B1 
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**** 

• * 

• B1 • 

• * 



TE9 



•*** 

• * 

• B1 • 



•007* 

VI* 



Update Section 



MD012 



V 1 •'.. 

VS'IKm.' 

ID? . < 



**•• 
% * 

« 11 * 



•010* 

• e5« 



..p 



HOG MA*. 
♦CABD SEQ < *. 

OB • LIST . 
. UPDATE? , • 



tss 



AAD010 



B2 



.* 15 THIS *. ICO 
•>*. CABD 1 PTF? .+ — - 



***** 
•010* 
• 41* 



• tES 



•****C2**** ****** 

• * 

• P0I8T IH1 TO • 

• FIBS? TABLE • 
*E»TRT IK IDTAB * 

A**************** 



**•* 

• * 

• C2 • 

• * 
**** 



< 



D2 *. 
.•IS THIS*. 
.* EHTHr *. SO 
*. C0HRMT PTF .* — 
*. ID7 .* 



TES 



HD01B >. 

E2 *. 

•*** .* *. 

► * IBS .* PSIMT « 
* S2 *< *. S0PPBBS3IOH 

► * *. 0*7 -« 
• •** *. .* 

• » 
* WO 



* FBIIT DELETED * 
PTF CUED 



D3 *. 
.* * 
.* IS THIS 
■>*. EEO OP 
*. TABLE? 



• TES 



****B3********* 



P0T PTF ID IS 
TABLE 



50 



IJID01A I 

• ****D[)*******«> 

— >* IHCRErfBKT XR1 



***************** 

*•** 

* * 

* G2 *-> 



***• 
AAD011 

***52 ************ 
READ FBOH 
* PROGBAH • 
FILE. SELECT 
* TO STICFSH .3 * 



**H2******* 

■ i 

BS9BT 

STACKEB 

LECT TO 4 



* sb: 



* EB/01/11 

*****j2 ********** 

•SBLF-CBECK _ * 

*" VERIFT ""•— 

* SELF-CHECK * 

* HOSBZB • 

**•*•**•******••* 



.* *. TES 

->*- SELF-CHXCIC .*--- 

*. EBlOfi? -• 

*. .* 

*. .* 

• FO 



■>* 11 * 

* * 
• •*• 
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Update Section 



km: 



UD01D 



11 *. 
k « 

IS CARD 
HITUIR 
BODY? 



12 



10 
► >*. 



A3 *. 

.•IS CARD*. 

wo .•Fftoa opdate*. no 

» --->•. F21E 1 -• — 

*. PTP7 .• 



10 •. 

.♦IS CARD*. 

.* PROH < 

■>*.PR0GEi3 FILB 

•. A PTP? . < 



• •••* 

1 A1 * • 

+ HI * 

• ***• 4 

***« 

AAD015 .*. 

B1 *- 
. 'COMPARE*. 
RQ . * PBOG CARD 
P — •. 5EQ WITH 

*. UfDATZ . 
•.CARD .* 



L 



«. LO 



«•*«• 

►Oil* 

* 11* 



110030 



• HIGH 



Cl 



< P80GRAR « 
CARD A PTP? 



res 

**** 
•007* 

• B3 * 

• • 
***• 



**B2******* 
•SET STACK EH* 

• SELECT TO • 
■>*ISCLUDE PBOGRAi!*- 

* CARDS • 



> PRQGRAB *. 10 
CARD AH ERD .*— 
'. CARD? .• 



I**** 
•013* 
->• A2 • 



• *** 

EC/01/A1 
*****B3 •**••***** 
•SEflUERCE • 



10GRAR CARDS • 
•TO CBRFIHT CARD* 



->* A1 ' 

• i 

• *** 



***** 
•013* 
• A2« 



TES 



AAD040 



<- 



D1 



• TBS 



81 



* UPDATE * 
CARD A PTP? j 



El 



TRS 



SELECT TO 
->• FORCE UPDATE 
* CARD TO 
• STACKER 2 * 
*********** 



•012' 
• DV 



El *- 
♦UPDATE •. 
CARD IS *- HO 
CORRECT .♦- — 
SBQ? .• 
• . .* 

* * 
• YBS 



AAD070 

*****p^ *****•*••• 



**•• 

7-B2 *013* 

9-A1 • J2 " 

13-B2 * • 

• *** 

MD060 



•***E2********* 

•HALT: CARDS HOT* 

■>* IK SEQOZHCZ * 

*************** 



DISPLAY: 07 



•IHCREBERT COURT* 



- • IS CARD •. TES 




•. . • 


7 


*. .* 


***** 


•• .• 


♦012* 


• RO 


• D1* 






* * 






• 


1 


i 




. *. 




H1 *. 




„• *. 




.* PRUT •- YES 




•. SDPRESSIOE .* 


_— --, 


•- OS? -• 


7 


*. . • 


***** 


*. -* 


•012* 


i 


> BO 


• D1» 



IOCS 



• PHIHT PTP IR 
RODDIE 



•012* 
• D1* 
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Update Section 



***** 

*010* 
* Bl* 



AAD017 



• UPDATE LAST • 
•SEQOEHCE HUBBBfl* 



B1 *. 
. * < 
-• IS CARD 
♦. BITHIH 
*. BODY? 



EE5 



AAD020 



RO 



IRCBEHEBT CODHT 
* 4*** ********** 



.* IS « 

>+. UPD1TE CABD 

A *. A PTF? -< 



• BO 



IBS 



<-• 



AAD025 

**C2******* 
•SET STACXBB* 

• SELECT TO * 
♦DELETE FBOQRAK * 

• CA8D * 
*(ST1CKEB3> + 

4*******»*+ 



CARD t 
PTP7 



*»B<*«*****« 
•SET STACKER* 

* TO DELETE * 
■>♦ UPDATE CARD 

• (STACKERS) * 



* IBS 



***** 
•012* 



D2 *. 
.* IS " 

HO . • FBOGBAB 

— -•. CARD A 
*, PTP? 



*****B2*a*****4 

* 

■ BOTE DELETED 

* PIF TO PBIBT 

♦ BOFFEfi 



•****P2 *•■**•***■ 

* * 

* POIST iai TO • 

* FIRST TABLE * 
•ESTBI IH IDTlfl * 



G2 •- 
.*tS THIS*. 
* EHTBT *. BO 
COKBEBT PTP .* — 
». ID? -* 
•. -• 
*. .• 
* IBS 



>♦. 



IS THIS 

ehd or 

TABLE? 



AAD027 



HO .* IS *. 
r«-*. UPDATE CARD .* 
♦ . k PTP? .• 



*+**H3********* 



PUT PTF ID II 
TABLE 



• TES 



• HOVE PTF II * 
•BODOLE TO PRIHT* 

• BDFPEE * 

• * 
***************** 



AAD02B 



X2 



AADQ29 



K3 



.* IS PROG «. TES 
*. CA8D A PTF7 .* 



„• PHIIT *- 10 
■>*. S0FPRESSIO1 „*— 

•. os? .* 



AAD026 

*****G0 



••■••••*+* 



->* IHCHEHEBT XB1 * 



IOCS 



* PRIST DELETED * 
PTF A"D/OB 
* PTF IH tlODULB* 



***** 
•012* 
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I 

***** 
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***** 
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Chart EA. Mainline Routine (Part 11 of 16) 



ART: 55127.1 I 



Program Organization 2-19 



Update Section 
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V IOC! 
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***l\ ************ 



PC ID FROfl 
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res 
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C3 



->• 
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SEU-CHBCK 
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+*** 
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*♦** 
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***************** 
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*****?2 ********** 
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***** 
•007* 
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**** I 
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: ca /->| 
♦**• $ 
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,* 
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r" 
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*. 
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*. .* 
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*. CARD? .* 
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TB5 .*' 



AAD120 
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15 CABD 
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C2 
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.* 


r ->*. A PTP? 
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D1 *. 
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* 
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v****x1 ********** 



POT PTP ID IB * 
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• 
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IDTAfi • 
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• 
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PBIBTBH BOSI 

AKD PRIST 

DELETED PTP 


* 
* 



AAD133 f IOCS 

***H1 ************ 
FE1D HER 
* CARD, • 

SBLECTIBG PTF 
• TO STACKEB 3 • 



P2 •- 
.* *, 

• THIS ID 

OP 0PD1TE 
•.FILE FTF7. 



G2 



EBD OF 
TABLE? 



HO 



aid-ho 



V IOCS 



***C4 ************ 

READ BEXT • 
CABD IS 
OPDATE FILE * 



. ♦. 



EMD 01 

W 



»,0 {i { 



***** 
•007* 
* B3* 



EB/01/A1 

***»*2H*********r 
♦SELF-CHECK 



7BRIFY 
SELP-CHECK 



**************** 



TBS 



-•, SELF-CHECK 
EBR0R7 . 



TES 



**R2****»** 

♦SET STACKED* 

* SELECT TO 2 < 

*S0 THIT PTF IS 

-KOT IBCLODED * 



I /*•• 

L->* C2 



C2 

•*** 



' EB/01/A1 
*****j1 ********** 

♦selp-cbecx • 

•" "tfbift "♦ 

• self-check * 

♦ BDHBEB * 



*AD160 



.♦BO. GREATER*. BO 
THAB ,*— - 
*. LAST7 .♦ 



T 
***•■ 
♦010' 
* 12' 



TES 



*****K2 ********** 

* • 
♦CALCULATE BEXT * 

• EXPECTED ♦ 
■SEQOEBCE BOBBER* 



* BO 



»*** 
* « 

► A2 ' 



**•* 

• * 

♦ AH ♦ 
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PTF Insert Section 



"00U + 

> *i* 
**+++ 



* YES 



****V2 ********* 

■ HALT: HEIDE? * 

■^♦HISSIHG O^t OOT ■ 

+ 0' 5S0tl?«tC1 * 

*************** 



DISPLAY: 10 



CA°D A ?TP 
*. BEADS'*? . 



**** | 
* * 

+ C1 *-> 



sPAnr* 

ALREADY 

. ronitn? 

*. . i 

*. .* 

* TES 



* !TAV; * 
■>*<INT0BKTI"»TA3LE * 

* j»ij» TYPE * 
*************** 



I **** 

U>* 71 * 



PIS»T.AY: 01 



• *** 
AAB050 * EE/11/A1 

*****Q-\ ********** 

+ PTP-L0KI7P * 

*-.-■--_„ * 

♦ADD PT? ^AD5» * 

* TO TABLE * 

* * 
***************** 



AAS0-7Q 



TC/01/A1 

***$2********** 



. * PT? ?01 *. «0 
i. CU^".*? .*«■ 

*.PROGPA«7 .* 



> 



->*SE01EirCE CHECK *■ 
* TIP ^POSEA*. 



PTIB HODnti; * ***** 

***************** *001* 

* ,T1 + 



AAE0 85 T 

*S?f STAC'EP* **** 

* SBL*C* "O * * * 
• POPCE Dt»DAT» +< * E1 * 

* CA»DS TO * * ' 
* 5TACK5H 2 * ♦ *+* 

*********** 



* rocs 
***pl* *********** 



• BTAD rt^OA'E * 
FTLB 



***************** 



G1 *. 
k 
FNO 0? 
PUPATE 
*TL*7 



NO 



.* SSP OF *. VQ 
■>+. "EOGPAff . *-- - 
*. PILE? .* 



* YES 



• v***/;3******i 



* STT SWITCH TO 
■>*SPOns>9CE CIBCt 



************ 



V 

***** 
+003+ 

* ,n+ 



AAE081 



EB/01/A1 



SKL'-CI^CCK 
HHHBEF 



***+ 
> * 

» 11 *-> 



***** 
•001* 

* K1* 

* • 



+**++ 
1S-X5 *016* 



+ *** 
HAE090 .+- 

J1 *. 

.+ +. 

YFS .* 

L +. SEL^-CRECF 

*. E^RO*? , 



AAYOOfl 



.'2 *. 

*npDAT5 *. 

CA»D A 

KEADH 

CAPD? 



AAE09^ 



*. 



TBS 



I **•* 

* * 

L->* CI + 

* * 

**** 



+ Y*S 



***** 
*01!i* 
* A1 + 



****JU*+******* 

+RALT: swoptsed * 

>+PTP SOT P^PSEHT* 

* • 






DISPLAY: 


16 


• 
* 
* 

* 


»** 

* 
!1 * 

► *+ 
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***** 
• 014* 

Vi* 



PTF Insert Section 



hi 



' CORRECT 
COBPOREST? 



EE/01/A1 
*****12 *•*♦•■*♦*• 
«5EAHCH-PTF * 



11E030 



■>• SB1HCH PTF 
* HEADER TABLE 



13 



HEADER 



HO 



****Att*^*****< 
• HALT: HEADER 



* TBS 



YES 



DISPLAY: 10 



AAF030 



CORRECT 
MODULE? 



A1E060 



♦♦♦♦B2 •****•»♦• 

* HALT: OPDATE « 

■>* FILE NOT IB « 

IOEBCE < 



jE^C 



OISPLAT: 09 



> PROGFAB 
HAVE LOHZR 
'.SEQ1JEHCE7. 



EC/01/A1 

»+**+C2********** 
•SEQUEBCE 






->*SEQnERCE CHECK ♦ -- 
* PROGRIH CARDS • 



***** 

•001* 



Dl +. 

.•CORRECT*. 
. •TEESIOS AMD*. 

*. aoo. 

*. LE7EL? .♦ 



* TES 



AAF0U2 



EC/01/11 
*****E1 ********** 
•SEQUERCB * 



**++D2 •+***•*** 

♦HALT: IHCORRECT* 

->*7SRSIOB OB HOD.* 

• LEVEL • 



DISPLAY: 0** 



♦CARDS «ITB SEQ.* 



AAP06D 



F1 ♦. 


72 ♦ 


•PROGRAB*. 


,* 


CARD SAHE *. SO 


.* ERD 


SEQ AS .+ 


>♦. CABD? 



NO 



AAE060 



++++73*+»*+»»»* 

♦ HALTl OPDATE • 
>• TILE SOT IB ♦ 

♦ SEQUEHCZ ♦ 



DISPLAY; 09 



•*G1******* 
•SET STACKERS 



CABD 
♦ JSTACKER31 * 

*********** 



***** 
•016* 
♦ Al* 



.♦" •".. 

« PRIST ♦. YES 

SaPPHESSIOB .♦ 

'. OB? .* 



*m+R2+****** 



PHIBT THE PTF 
ADDED 



AAT0«S 



IOCS 



**»J2* *********** 



BEAD FROM 
OPDATB TILE 



• BSD OF •- 10 
UPDATE .*--- 

♦ . FILE? .♦ 



+ TES 



EB/01/A' 
*****g3 ********** 

♦SELF-CHECK ♦ 



VERIFY 

SELF-CHECK 

BOBBER 



SELF-CHECK 
'. ERROR? . 



AAFD67 .*. 

K5 ♦. 
.♦ SABE ♦- 
.♦ COBPOMEBT *. TES 

— >•. ABD .♦ 

*. KODOLE? -* I 



***** 

•01U* 
* J2* 



♦016* 

• D5* 



***** 
*016* 
• 05* 
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PTF Insert Section 



\<V 



*****ai ++*++++** 

• ROVE PTP IB 
•BODUIE TO PBIHI 

• BDFFEB 



BO 



B1 •. 
.* IS •. 

' PROGFAH ' 

FILE CARD A 
PTF 



Ik? OHH 



1 IS PTF •. 80 
BITHIB BODT .*— 



* * 

* * 

•IBCBEBBBT COPWT* 

* * 

* * 



.•IS CABD*. 
.♦II PH.OCHAH 
FILE A 
*. PTf? 



AAF0 85 



****»G1 ******* *•* 


G2 *. 
.* +. 

.* PBIHT *. TES 

— - >*. SUPPRESSION .* --■ 

*. OB? -• 

*. «• 

*. .* 

• SO 
1 




* IICFEBEBT * 

• EXPECTED * 

*5E0(JEBCE BDHBEB* 


***• 

* * 

* H3 * 

* * 






1 J 


***• 
J 




1 IOCS 

***B2 ************ 


1 

AAP05D 7 IOCS 

•**H3 •****•*•*•** 




• PBIBT CARDS * 

DELETED ABD -1 

* ADDED • 


« READ FROB * 
PBOGBAH PILE 

• * 




***************** 


«************«**+ 



BUD OP 

PROGS*? 

FILE? 



?^EC/g1/»1 

•SELF-CHECK * 

», * 

• VlftlTT • 

• SELF-CRECK HD • 

• OP PGH CD * 



SELF-CHECK 
'. SJT80K? . 



HO 



TES 



->* B3 * 



HF055 f IOCS 



READ FHOH 

UPDATE PILE 



FPDA 
~>IL 

'. .* 



EHD OF ♦. TES 

tJPDATS .* 

PILE? .* 



****< 

*015< 



AAF070 T EC/01/A1 

*«***Q5 ••••**••*• 
•SEQDESCE • 

• — ■ • 

— >*SEQOENCE CBBCK • 
•PBOGRAN NODDLE * 

• * 

»******•*•****«** 



**••• 
♦001* 
* G1* 



*****g(f**»*4 

•SELF-CBECK 



VEBIFT 
SELF-CHECK BO 
OF DPDATE CD 



TES .* +. 

' *. SELF-CHECK .* 

«. EBBOKT .* 



• ***• 
*01<i* 

• J2* 

* * 



***** 

• 001* 

* K i* 
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Self -Check Routine 

Entry Point: AAK010 
Chart: EB 
Functions: 

• Moves the 3-byte self-check number from the card 
image area to a save area and sets the three bytes in 
the card image area to binary zeros. 

• Converts the 3-byte self-check number using the low 
order six bits of each of the three bytes and ignoring 
the low order two bits of the result to obtain a 2-byte 
number. 

• Calculates a 2-byte self-check number as follows: 

1. Cumulatively "exclusively ORs" each odd number- 
ed card column with a 1-byte hold area initially 
set to binary zeros. 

2. Cumulatively "exclusively ORs" each even num- 
bered card column with a 1-byte hold area 
initially set to binary zeros. 

• Compares the self-check number on the card with the 
calculated self -check number (the odd numbered column 
result is used as the high order position and the even 
numbered column result as the low order position) and 
halts if not equal. 

Subroutines Used: None 



AAKD1D SELT-CHBCK 

* * 

• EBTST • 



Bl *. 

.* *. 

♦SELF-CHECK *. 

HO=BXHJLBY .* 
*. ZERO . • 



*****q1 ********** 
*SAYB SELF-CHECK* 

* HO FROH CAHD * 
•AMD CLEAR SELF • 

* -CHECK PLO OF • 

* C1ED IEAGE * 



AAK020 

•****D -■*••* ****** 

* EXCLUSIVE OR * 

* TOGETHER THE • 

* ODD-gOaaERED * 
♦C0L0H8S of card* 



AAK061 

»****g1 ********** 

* * 

*'EICLOSI¥B OS' * 

* EVES-SOHBEBED * 

* COLDSHS ♦ 

* * 
***************** 



AAK100 

*****p ]********** 

* COMPRESS * 

* SELF-CHECK * 

* K-DiBEH FHOB * 

* CARD * 

* * 
***************** 



THIS CLOSED 

SDBBODTIHE 
RETOBHS TO THE 
IKSTBCTCTIOH 
FOLLOWING THE BBASCH 

SELF-CHECK EHflOH 

HAS BE EH DETECTED. 

IB THIS CiSE IT HETOHIS 

TO 1 POIWT 3 BTTES 

FOLLOBIHG THIS BRAMCH 

TO ALLOW RESTABT 



AAK120 



*-. CALCO] 
*.= Gil 

*. 
*. 
i 


,ATED .* > 

fEB7 .* 

.» 
.# 
» YES 


> 




AAK110 

***«g<]* 
* 
* RSTl 

* 


< 

»*•***«* 

* 

* 



****52********* 
' HALT: ' 
' SZLF-CHECK ' 
' SRBOH ' 

*************** 



DISPLAY! 08 



*«**&3********« 

* * 

* ADJUST BETORH * 
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Sequence Check Routine 

Entry D oint: AAL010 
Chart: EC 
Functions: 

• Prints module and component IDs and audit trail 
headings. 

• Reads a card from the Program File or from the Update 
File in the case of a replacement. XR1 is passed to this 
routine as a parameter and points to the desired buffer 
when this routine is entered. 

• Finds component header information in the Component 
Header Table via the Component Table Look-Up 
routine. 

• Checks the sequence of an entire module by: 

1. Component ID and module ID. The data on the 
card being checked is compared to the data in the 
Component Table Hold area (COMPHD). 

2. Sequence number. Cards must be in ascending 
consecutive order within the body of a module 
deck. (The body of a deck consists of all the 
cards of that deck with the exception of the header 
card, end card, and PTF^cards immediately 
preceding the end card.) Cards which are outside 
the body of a deck must be in ascending order. 



• Counts the cards in a module. 

At the end of every module, the Sequence Check routine 
performs the following functions: 

• Compares the accumulated card count of the module 
against the module card count on the module header 
card. 

• Lists the module card count from the header card and 
the accumulated card count of the module. 

1. If the counts do not agree, the listing is flagged 
with asterisks, and a halt occurs. Processing 
resumes when the operator presses START. 

2. If tne counts agree , the module card count 
is added to the component card count and 
processing continues. An exception is the 
RPG Compiler with one or more user sub- 
routines (EB phases). These phases are not 
counted in the component card count, but 
are sequence checked and checked for cor- 
rect module card count. 

• Resets expected sequence number. 
Subroutines Used: 

• Read Only - Both Hoppers (Object) MFCU IOCS 

• line Printer - Single Feed Carriage (Object) Printer IOCS 

• Self-Check Routine 
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SEQUEICE 

* 
EHTHT * 



11L027 



HE1DER 
C1BD? 



♦ IIS 



CI *. 

.* •- 

PRUT ' 

SUPPRESSION 

». OS? .« 



* HO 



[OCS 



PHUT PAGE. 
* HE1DIHG, BUB 



IOCS 

***U1**** ******** 
PBIBT 
• COHPOIBHT ID, * 
TBRSIOH, 4KD 

• HOD. LETEL * 
• A*************** 

02-G3 
**** 

♦ 0D3* 

* J2 ♦-> 

* * 

♦ **• 
L020 



* SITE L15T * 
■SEQUEBCE MUHBBB* 



•002* 
* E2 •-> 



11L02 



i. 



< — 

v iocs 



*G1 ************ 



BEAD 1 CARD 
1SD Bllf 



11L025 

IES .*' 
r — *» 

*• 



H1 *, 



***** 
♦002* 
« D3* 

• * 



****j1******< 
SELF-CHECK 



VBEIPY 

"Kan™ 



R1 



SBLP-CHECK 

*. E8B08? . 



* 10 

L— . 



A3 



.* B EIDER *. YES 



TES 



— >*. C1RD7 .* — 
*. •* 


>*. 

• 


SEODEICE .* — 
fiDH? .* 


V 


*. .* 




*. .* 


***** 


*. .• 




*. .* 


•002* 


• MO 

1 




♦ BO 

i 

***** 
•002* 


* D3* 

* * 
• 


AAL030 ,*. 




• PI* 




B3 *. 




• • 




-* LIST *. 


• *•• 


* 




.•OPD1TB C1RD*. HO 


• * 






*. 1 COHPOHEMT .* 


->* F4 * 






♦ . HEADER .* 


• • 






*. .* 


♦ *** 







• YES 



C3 



IBS 



• BUT: B El DIB 
■->*nISSISG OB DOT 



DISPLAY: 10 



03 •■ 

.•COPRECT*. 
COHPOHEWT 

1HD 
, HOD0LE7 . 



S3 



' CORRECT * 
HOD. LEVEL? 



BO 



7 
***** 
*0D2* 
* D3* 



IBS 



V 
***** 
•002* 
• 11* 



» Pft • 
i * 

• ••* 



P3 



A1C190 



PTF7 



***** 
*002* 
* 11* 

* * 



•HILT: IBCORBECt* 

>*TERSIOV OH BOD. • 

• LE7EL • 



DI5PL1H1S 
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* F3* 01-F3 

* i 



01-13 
&1LQOO 



41 ♦. 

CkttD *. IBS 



*. bitbib boot -*- 

*.OP DICKT .* 
*. .* 

*. .• 
* 10 



T 
***** 
♦003* 

VI* 



B1 



BID 

C1HD? 



BO 



V 
***** 
•003» 
* 1M 

* * 



C2 



11LO50 



• 




*. 


BO 


.* SBQOBICB •- TBS 

>•. CBBCI .* 

•. BtJH7 .♦ 








Mr i 










•• 


• " 




"t 




*. .* 






*. .• 


***** ***** 




*. .* 






*« .* 


•003* *O01* 
* ll* ♦ HI* 




* TBS 






* BO 












•*♦* I 


* * * * 












:°?r.-> 


* 

01-14 
01-03 














* • 








' 






**•• i 








.*. 






11L060 **. 


1AL061 






D1 *. 






D2 *. 


'' 




.* *. 






-• *. 


»***D3********* 




• IB 


*. 


•!° - 


-* *. 10 


*B1LT:C1BDS I0T * 
>* IB SlSlTBirCB * 




PflOPBB 
•.SBQUBBCB7. 


. 




™>*. SBOOEBCB .• 

*. IUB7 .• 




• 




* • 




*•- -*" 










4 


» TBS 






• TBS 




DISPL1I: 


07 



UL065 



•SBOOBBCB^BnaBBS 



>B1 

CALC0L1TE 
JOE ICE BUB 
Jp BBIf PTF 

*»*••*•*••••**•** 



**•• 
•001* 
• It •-> 



**** 
11L070 



PI 



TBS .* HBTBBI *. 

I.— *. SBITCB OB? .• 
•. .• 

•. .• 
•. .* 
.** • |0 



• * 
•003* 

• < 

* 



G1 *. 

.*■• B?-- ••., 

--tor" 

.01 

• 



BBTOBB 
TALDB7 



• TBS 



•00 3* 
• KS* 



11L160 



•***B2 •••**♦*** 
♦HILT; CJLHD5 BOT* 
* II SBQ02ICE •- 



•001* 
DI5PLAT:18 * Ct* 



I 5 BITCH 5BT OI 
BT 1IB PROG BIS 
TO BETDBI IP PTP 
IS POO ID OB A 
SBOOSBCB BREAK OCCDBS 



' MIR *. BO 

S1JPFBB3SI0* .* > 

", 017 -• < 



ss. 



pfliir ptp 



• IBS 



***** 
•001* 

vr 



***** 

• 001* 

VI" 
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***** 

• 002* 

♦ C2* 



02-JM 



1AL0S0 



11 



*. seooebcz .*- 

*. bSeak? .* 

*. .* 

*. * 

* *E9 



•4***31 ********** 



1AL090 



42 < 
i 

PTP? 



•••* 
* 
->* P2 « 
• •*• 



• IBS 



B2 



•SET OP EXPECTED* 
•SEQUEBCB BUHBEB* 


IBS . 


* BETOBB •, 


r - *- 


SWITCH 017 .* 


• * 


1 


•. .+ 


* * 


1 


•. .* 
*. . * 

* SO 










* • 


1 






• K5 * 








• • 








••** 










k 


.», 




• *. 


C1 +. 




C2 •. 


.• *. 




.* *. 


MO . • HETOBS *. 


TIS 


* SBQ- *. 

ko.-rStubb .* 


r — •. SWITCH ON? . • 


r"-*- 


f •. .• 


r 


*, ?1LUE? .* 


*. .* 


I 


*« .• 


* •. .• 


♦ 


*. .* 


***** * TE5 


**•• 


* MO 


♦002* 1 **** 

♦ D2« * * 
* * L->* K5 • 


• • 


f 


• K5 • 




* * 




• * • 


• *•* 


1 


• •** 




X 

D2 *. 
. • *. 
• PRIMT *. IBS 
SOPPRESSIOR .*— 




*, 








** OB? -• 



1 IOCS 



jc: 

»E2*******< 
PSIRT PTF 



AU095 

?2 *. 
**** .* SEQ. 

* .* HO. ■ 
fl • >*, BBTOBH 

• •, VALOE? 



****G2********* 
IHCBEBEBT COtJHT 



K1L097 

i*»**H2 ********* 



IBCSBBBHT 

EXPECTED 

SE01EHCE HOHBEB 



J2 *. 
.* SEQ- *. 
•• 10. » •. IBS 

•- BETUBH .• 

♦. TAL0B7 .* 
*. .* 

•". .* 
• BO 



***** 
•001* 
• F1* 

• »OT SOBJECT TO PRIBT SBPPRESSIOH * * 



\H' 



11L100 



.♦ RBTOSB *. TBS 
-->*. SWITCH OB? .• 







► so •*•* 






* * 






* K5 * 






a • 






• •*• 




r 




»*. 




B4 *. 




. • *.. 


.* 


ERD *. BO 


*„ 


CARD? -* 1 


* 


•• 1 




*• •* 1 




*. .* * 




• TBS *•** 




1 * • 




* K5 * 




* * 




1 












C4 *. 




* *. 


TBS .* 


CARD *. 


.-.-*, 


cooitr .• 


* 


COBBBCir .* 




*. 


.* 



BO 



t IOCS ♦ 



PBIBT CABD 
COUMT 



BH *. 

tbs .•* prist *« 

*. SOPpRESSIOB 

*. OM? -' 
*. -• 

*. .* 

* vo 



***P4************ 



• PBIST CARD 
COOBT 



A4L120 



IOCS 



RE1D A CABD — 



t M/01/11 
*****HII ********** 

♦SBLP-CBBCK 



VBRIF7 

~ ?-CHBf 

I MB SB 



SELF-CHBCB 



****D 5********* 

* BALTiHODOLE • 
->* CABD COBBT IB * 

* ERROR • 



DISPL1I:02 



TO ST4CKEB 
SELECT 
BBD CABD 



BS 



■>*. SBLP-CHICK 

*. EBR0R? 



*. IBS 



BO 



*****35* ********* 

* * 
*1DD BODOLE C1HD* 

* TO COHPOHEBT * 

* CARD COOHT • 



***• 
♦002* 
• G1 •-> 
02-F1 • • 



111130 

****K5- 
r ->* BETOBW 
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Component Table Look-Up Routine 

Entry Point: AAM010 
Chart: ED 



AAHOlO OOBPOIBIT 

* * 

• BITBI * 



Functions: This routine inserts information into or 
accesses information from the Component Header Table. 
This is accomplished by the use of parameters. If the calling 
routine passes a character into a Compare Logical Immediate 
instruction, the routine uses it as the component ID for 
which to search. If it is found, the routine moves the entry 
into the Component Table Hold area (COMPHD) and 
returns to the calling routine. If it is not found, the routine 
moves blanks into the hold area. 

If the character passed is a blank, the routine builds an 
entry from the data in the Program File Read buffer, moves 
the entry into the Component Table Hold area, and then 
returns control to the calling routine. 
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Chart ED. Component Table Look-Up Routine 
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PTF Table Look-Up Routine 

Entry Point: AAN010 
Chart: EE 



Functions: This routine inserts information into and 
accesses information from the FfF Header Table. This is 
accomplished by the use of parameters. If the calling rou- 
tine passes a character into a Compare Logical Immediate 
instruction, the routine uses it as the component ID for 
which to search. If it is found, the routine moves the entry 
into the PTF Hold area (PTFHD) and returns to the calling 
routine. If it is not found, the routine moves blanks into 
the PTF Table Hold area. 

If the character passed is a blank, it builds an entry from 
the information in the Update File Read Buffer, moves 
the entry into the PTF Table Hold area and returns control 
to the calling routine. 
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Chart EE. PTF Table Look-Up Routine 
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Section 4. Data Area Formats 



PTF Header Table (PTFTAB) 



Update File Read Buffer (UPDATE) 

This 96-byte area, referenced by the label UPDATE, is a 
read buffer and work area for the Update File. Data infor- 
mation in this area may vary depending upon the type of 
run. (For card formats see Figure 2-1). 



UPDATE 



UPDATE+95 



Program File Read Buffer (PRGRD) 

This 96-byte area, referenced by the label PRGRD, is the 
read buffer and work area for the Program File (For card 
formats see Figure 2-1). 



I 

PRGRD 



PRGRD+95 



This 100-byte data area is referenced by the label PTFTAB. 
It is comprised of twenty 5-byte members. The table is 
initialized to blanks and the end of the table is denoted 
by a# /. It is a table of PTF header card information. Each 
member is comprised of the same data found in the PTF 
Table Hold area. 



PTF Identification Table (IDTABI 

This 65-byte area, referenced by the label IDTAB, is initi- 
alized to binary zeros. The first 64 bytes contain the PTF 
numbers (cc 90) from the PTF cards of the module. The 
last byte contains binary zeros and is used for clearing the 
first 64 bytes. 



PTF Table Hold Area (PTFHD) 

This 5-byte data area, referenced by the label PTFHD, 
contains information to be inserted into or received from 
the FTF Header Table. The format of this hold area is as 
follows: 



Component Header Table (COMPTB) 

This is a 260-byte data area referenced by the label 
COMPTB. It is a table of component header information 
that is comprised of twenty 13-byte members which are 
initialized to blanks. The end of the table is indicated by 
a <K /. Each member is comprised of the same data found 
in the Component Table Hold area, shown in Figure 2-5. 



PTFHD-4 



PHDID PTFHD-4 1 
PHDVER PTFHD-2 2 
FHDLVL PTFHD 2 



PTFHD 



Label Location Length Definition 



Component ID 
Component Version 
Component Modifica- 
tion Level 



Print Buffer (PRTBUF) 



Component Table Hold Area (COMPHD) 

This 13-byte data area, referenced by the label COMPHD, 
contains information inserted into or from the Component 
Header Table. The format of this hold area is shown in 
Figure 2-5. 



This is a 1 28-byte data area which is referenced by the 
label PRTBUF. It is the print buffer for the printer. 



PRTBUF 



I 

PRTBUF+127 
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COMPHD-12 






COMPHD 


Label 


Location 


Length 


Definition 


CHDID 

CHDCNT 

CHDVER 

CHDLVL 

CHDCAL 


COMPHD-12 

COMPHD-8 

COMPHD-6 

COMPHD-4 

COMPHD 


1 
4 
2 
2 
4 


Component ID 
Component Card Count 
Component Version 
Component Modification Level 
Component Calculated Card Count 



Figure 2-5. Component Table Hold Area (COMPHD) Format 



Name (NAME) 

This 1 1-byte storage area saves the name of the program 
deck being maintained. The data in this area is in a 
character format and is initialized to blanks. 



Module ID (MODID) 

This 2-byte storage area saves the Program File module ID 
for module headers read from the Program File, The data 
in this area is in a character format and is initialized to 
blanks. 



Module Calculated Card Count (MODCAL) 

This is a 3 -byte storage area used to calculate the module 
card count of a given module. The data in this area is in 
zoned decimal format and is initialized to zeros. 

This count is printed out as "ACTUAL CARD COUNT. 1 
The count includes all cards from the header card through 
the end card, except PTFs that are additions to the deck. 
PTF cards that have replaced cards within the module are 
included in the count. 



Module Currency Level (MODCUR) 

This is a 2-byte storage area for the module modification 
level contained on the module header card. The data in 
this area is in zoned decimal format and is initialized to 
blanks. 



Expected Sequence Number (EXPSEQ) 

This 3-byte storage area holds the expected sequence 
number of the program card being checked during the 
sequence check. The data in this area is in zoned decimal 
format and is initialized to 001, 



Module Card Count (MODCNT) 

This 3-byte data area stores the module card count that is 
located on the module header card. The data in this area 
is in zoned decimal format and is initialized to zeros. This 
count is printed out as "EXPECTED CARD COUNT." 



Body Count 1BODYCTI 

This is a 3-byte hold area for the sequence number of the 
last card in the body of a module. The data in this area 
is in zoned decimal format and is initialized to zeros. 
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Part III - - Device Counter Logout 



Section 1. Introduction 



The primary purpose of the IBM System/3 Device Counter 
Logout program is to report information about errors that 
were recorded during the execution of a Binary Synchro- 
nous Communications (BSC) program. This program should 
be run immediately after every BSC program. If it is run at 
any other time, invalid address processor checks may occur 
or invalid information may be reported. The program per- 
forms the following functions: 

• Prints a listing, if requested, with an identifying heading, 
the date, and a list of each of the 13 BSC counters and 
their values. 

• Punches and prints a card containing an identifying 
heading, the date, and the decimal value of each of the 
13 BSC counters. The program inserts this card before 
the end card of the program. 



Punched Card 

A card is punched by the Device Counter Logout program 
and inserted prior to the program end card. The contents 
of this card are: 

Column Contents 



1 


C 


2 


Blank 


3-6 


Text blocks sent (in hexadecimal) 


7 


Blank 


8*11 


Text blocks received (in hexadecimal) 


12 


Blank 


13-16 


NAKS received (in hexadecimal) 


17 


Blank 


18-21 


Data checks (in hexadecimal) 


22 


Blank 


23-26 


Forward aborts (in hexadecimal) 


27 


Blank 



Column Contents (continued) 

28-3 1 Aborts (in hexadecimal) 

32 Blank 

33-36 Adapter checks on transmit (in hexadecimal) 

37 Blank 

38-41 Adapter checks on receive (in hexadecimal) 

42 Blank 

43-46 Invalid replies (in hexadecimal) 

47 Blank 

48-51 ENQs received (in hexadecimal) 

52 Blank 

53-56 Lost data count (in hexadecimal) 

57 Blank 

58-61 Disconnect timeouts (in hexadecimal) 

62 Blank 

63-66 Timeouts during receive data (in hexadecimal) 

67 Blank 

68-73 Date (mmddyy) 

74-96 Blank 

See Section 3, Data Area Formats, for an explanation of 

each of the counters. 



System Requirements 

The Device Counter Logout program requires an : 

• IBM 5410 Processing Unit with a rninimum of 8,196 
bytes of storage 

• IBM 5424 Multi-Function Card Unit (MFCU) 

• IBM 5203 Printer 

• IBM Binary Synchronous Communications Adapter 
(BSCA) 
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Section 2. Program Organization 



Hexadecimal 
Address 



Hie Device Counter Logout program is made up of two 
modules. The first module locates the 13 counters in stor- 
age. The counters are then moved to a high storage location 
so they will not be overlaid by the second module. Figure 
3-1 shows a storage map of the first module. 

The second module converts the counters to decimal and, 
if requested, prints a listing of each type of counter and its 
value. A card is then punched containing the counter infor- 
mation. This punched card is merged into the program deck 
prior to the end card. Figure 3-2 shows a storage map of the 
second module. 

Chart FA shows a flowchart of the program. 



Hexadecimal 
Address 



0000 
0100 
01B2 
01E0 
0300 



0B00 
0B1A 

xxxx 



Buffer Area 



System Communication Area 



Program Constant 



Unused 



Full Function MFCU lObject) 
IOCS 



Line Printer— Single Feed 
Carriage Printer (Compiler! 
IOCS 



Second Module 
Unused 



Storage Area for Counters 



Unused 



oooo 

OODB 

0100 
01 B2 
01 EO 
0200 

OBOO 
0B1A 
XXXX 



Absolute Card Loader 



Temporary Storage Area 
for Counters 



System Communication Area 



Program Constant 



Unused 



First Module 
Unused 



Storage Area for Counters 



Unused 



• Figure 3-2. Storage Map for Second Module of 
Device Counter Logout Program 



Figure 3-1. Storage Map for First Module of 
Device Counter Logout Program 
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Chait FA, Device Counter Logout 
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Section 3. Data Area Formats 



Storage Area for Counters 

The 26 bytes of counters are'moved to X'BOO' by the first 
module of the Device Counter Logout program. Each of 
the 13 counters is two bytes long. The counters and their 
meanings are: 

• Text blocks sent— Number of blocks of data transmitted 
successfully from this terminal to a remote terminal. 

• Text blocks received -Number of blocks of data received 
successfully by this terminal from a remote terminal. 

• NAKS received— Number of negative responses received 
by this terminal in response to data transmitted by this 

terminal. 

• Data checks— Number of text blocks received with 
invalid error check bits. 

• Forward aborts— Number of times a remote transmitting 
terminal has terminated transmission abnormally. 

• Aborts— Number of times a remote receiving terminal 
has terminated transmission abnormally. 



• Adapter checks on transmit— Number of times the fol- 
lowing errors occurred while the terminal was transmit- 
ting data: 

1 . Parity check within the adapter. 

2. Cycle steal overrun. 

3. Local storage register or control register check. 

• Adapter checks on receive-Number of times the follow- 
ing errors occurred while the terminal was receiving data: 

1 . Parity check within the adapter. 

2. Cycle steal overrun. 

3. Local storage register or control register check. 

• Invalid replies— Number of abnormal responses (including 
no responses) from the remote terminal. 

• ENQs received— Number of requests for retransmission 
of this terminal's last acknowledgement after the acknow- 
ledgement has already been sent. 

• Lost data count— Number of text blocks received which 
do not fit into the receive area. 

• Disconnect timeouts— Number of times the data set has 
dropped ready status after that status was set on. 

• Timeouts during receive data— Number of times this 
terminal expected to receive text but did not receive 
anything for 3.25 seconds. 
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Appendix A. Directory 



The directory lists the programs discussed in this publication 
for reference to the program listings on microfiche. 



Descriptive Name Entry Point Synopsis 
ASIAA1 



System 
Initialization 

Program 
Maintenance 



Initializes the System 
Communication Region 



APMAA1 Updates program decks 
to maintain accuracy of 
system programs. 



Device 

Counter 

Logout 



ASLAA1 Reports information 

about errors that were 
recorded during the 
execution of a BSC 
program. 
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Appendix B. Flowcharting Techniques 



Flowcharts are identified in the following manner: 



The flowcharting symbols used are: 



• A flowchart that consists of only one page is identified 
with a chart ID of, for example, A A. 

• A flowchart that consists of multiple pages with a chart 
ID of AA is identified as: first page = AA-01 , second 
page = AA-02, and so on. 

• A sequence of related flowcharts are identified as: first 
flowchart = AA, second flowchart = AB, third flowchart 
= AC, and so on. 

• A sequence of flowcharts, each flowchart having 
multiple pages, are identified as: first flowchart with 
multiple pages = AA-01, AA-02, and so on; second 
flowchart with multiple pages = AB-01, AB-02, and so 
on; continue through the sequence of flowcharts. 



Processing 



Modification 



Comment 



U 



Off -page Connector 



Striped Processing 




Decision 



Input/Output 



CZD 



Entry/Terminal 



o 



On -page Connector 



Predefined Processing 
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Most of the symbols are self-explanatory but some need 
more explanation. 

1. The striped processing block indicates the entry of 
a routine flowcharted in this logic manual. 



CH/PG/BK 




CH/PG/BK indicates the chart ID, page, and block 
identification of the flowcharted routine. 



Hie predefined processing block indicates a routine 
flowcharted and/or described in another logic manual. 



SEE NOTE 




Note; See "logic manual title and order number' 



3. Off -page connectors are used to reference between 
different pages of the same chart ID. Off-page 
connectors leaving a page contain the page number 
and block number of their destination. 



Example: 



& 



Off-page connectors entering a page contain the page 
number and block number of their origin. If the 
entry point; referenced by the off-page connector is 
referenced from more than one origin, all origins are 
given. The origins are listed in alphameric order with 
the last reference contained within the block. 

Example: 





02-B2 
03-C4 



On-page connectors contain the location of a block 
on the same page. On-page connectors always con- 
tain the location of the destination block. 

The label in the upper lefthand corner just above 
the entry symbol is the entry point in the listing for 
that part of the program. 

Example: 

ASSIAA1 



( ENTRY J 



B-2 Appendix B. Flowcharting Techniques 



Index 



System Initialization 

Chain Image Area (CHAINO) 1-6 
CHAINO (Chain Image Ajea) 1-6 
Control Cards 1-1 
Copyright Area 1-7 

Data Areas 1-6 

Date Aiea (DATEO) 1-6 

DATEO (Date Area) 1-6 

ENVIRO (Error Recording Area) 1-7 
Error Recording Area (ENV1R0) 1-7 
External Indicators (INDO) 1-7 

Flowchart 1-3 
Functions 1-1 

INDO (External Indicators) 1-7 

Punched Card, Format 1-1 

SIZEO (Storage Size Area) 1-6 
Storage Map 1-6 
Storage Size Area (SIZEO) 1-6 
System Requirements 1-1 



Program Maintenance 

/♦Card 2-1 

Body Count (BODYCT) 2-33 
BODYCT (Body Count) 2-33 

Card Formats 2-1 

COMPHD (Component Table Hold Area) 2-32 
Component Deck, Definition 2-1 
Component Header Table (COMPTB) 2-32 
Component Table Hold Area (COMPHD) 2-32 
Component Table Look-Up Routine 

Description 2-30 

Flowchart 2-30 
COMPTB (Component Header Table) 2-32 

Data Areas 2-32 
Data Flow 2-3 

End Card 2-1 

End of File Card 2-1 

Expected Sequence Number (EXPSEQ) 2-33 

EXPSEQ (Expected Sequence Number) 2-33 



Functional Flow 
Functions 2-1 



2-3 



Header Card 2-1 

Header Card, PTF 2-1 

Header Section of Mainline Routine 

Description 2-7 

Flowchart 2-11 

IDTAB (PTF Identification Table) 2-32 
Initialization Section of Mainline Routine 

Description 2-6 

Flowchart 2-9 

Logic Flow 2-3 

Mainline Routine 

Description 2-6 

Flowchart 2-9 
MODCAL (Module Calculated Card Count) 2-33 
MODCNT (Module Card Count) 2-33 
MODCUR (Module Currency Level) 2-3 3 
MODID (Module ID) 2-33 
Module Calculated Card Count (MODCAL) 2-33 
Module Caid Count (MODCNT) 2-33 
Module Currency Level (MODCUR) 2-33 
Module Deck, Definition 2-1 
Module ID (MODID) 2-33 

Name (NAME) 2-33 

Overview 2-6 

PRGRD (Program File Read Buffer) 2-32 

Print Buffer (PRTBUF) 2-32 

Program Card 2-1 

Program Deck, Definition 2-1 

Program File 2-3 

Program File Read Buffer (PRGRD) 2-32 

Program Temporary Fix (PTF) Insert Section of Mainline Routine 

Description 2-8 

Flowchart 2-22 
PRTBUF (Print Buffer) 2-32 
PTF Card 2-1 
PTF Header Card 2-1 
PTF Header Table (PTFTAB) 2-32 
PTF Identification Table (IDTAB) 2-32 
PTF Insert Section of Mainline Routine 

Description 2-8 

Flowchart 2-22 
PTF Table Hold Area (PTFHD) 2-32 
PTF Table Look-Up Routine 

Description 2-31 

Flowchart 2-31 
PTFHD (PTF Table Hold Area) 2-32 
PTFTAB (PTF Header Table) 2-32 

Self -Check Routine 
Description 2-25 
Flowchart 2-25 



Index X-l 



Sequence Check Routine Device Counter Logout 

Description 2-26 

Flowchart 2-27 _ _ . , 

„ . ^ * - Counter Descriptions 3-4 

System Requirements 2-2 Counter Storage Area 3-4 

UPDATE (Update File Read Buffer) 2-32 Data Areas 3-4 

Update File 2-3 

Update File Read Buffer (UPDATE) 2-32 Flowchart 3-3 

Update Section of Mainline Routine Functions 3-1 

Description 2-7 

Flowchart 2-12 Module Description 3-2 

Punched Card, Format 3-1 

Storage Area for Counters 3-4 
Storage Map 

First Module 3-2 
Second Module 3-2 
System Requirements 3-1 



X-2 Index 



SY 2 1 -0522-2 



m 



International Business Machines Corporation 
Data Processing Division 

112 East Post Road, White Plains, New York 10601 
(USA only) 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New York 10017 

(international) 



